<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim events__MMColParam events__MMColParam = "1" If (Request.QueryString("EID") <> "") Then events__MMColParam = Request.QueryString("EID") End If %> <% Dim events Dim events_numRows Set events = Server.CreateObject("ADODB.Recordset") events.ActiveConnection = MM_rcdb_STRING events.Source = "SELECT * FROM Events WHERE EID = " + Replace(events__MMColParam, "'", "''") + "" events.CursorType = 0 events.CursorLocation = 2 events.LockType = 1 events.Open() events_numRows = 0 %> <% Function rDateTime(rTime) DIM myTime DIM myAMPM, myHour, myColon, myMinute myAMPM = Right(rTime,2) myColon = instr(1, rTime, ":",vbBinaryCompare) IF myColon = 2 THEN myHour = Left(rTime,1) myMinute = Mid(rTime, 3, 2) ELSE myHour = Left(rTime,2) myMinute = Mid(rTime, 4, 2) END IF myTime = myHour & ":" & myMinute & " " & myAMPM rDateTime = "" & myTime & "" End Function %> Tarheel R/C Flyers Event Details
Home Members Events Forums Resources Contact/Join Us
 

Event Details


<% if (events.Fields.Item("EStartTime").Value) <> "" then %> <% end if %> <% if (events.Fields.Item("EFlyer1").Value) <> "" then %><%end if%> <% if (events.Fields.Item("EFlyer2").Value) <> "" then %><%end if%> <% if (events.Fields.Item("EFlyer3").Value) <> "" then %><%end if%>
Title: <%=(events.Fields.Item("ETitle").Value)%>
Description: <%=(events.Fields.Item("EDesc").Value)%>
When: <%=(events.Fields.Item("EStartDate").Value)%> <% if (events.Fields.Item("EEndDate").Value) > (events.Fields.Item("EStartDate").Value) then %> - <%=(events.Fields.Item("EEndDate").Value)%><% end if %>
Event Time: <%=rDateTime((events.Fields.Item("EStartTime").Value))%><% if (events.Fields.Item("EEndTime").Value) > (events.Fields.Item("EStartTime").Value) then %> - <%=rDateTime((events.Fields.Item("EEndTime").Value))%><% end if %>
Announcement: " target="_blank">Download Flyer (PDF)
Pilot Info: " target="_blank">Download Flyer (PDF)
Sponsorship Info: " target="_blank">Download Flyer (PDF)
   
Where: <%=(events.Fields.Item("EAddress").Value)%>
  <%=(events.Fields.Item("ECity").Value)%>, <%=(events.Fields.Item("EState").Value)%>   <%=(events.Fields.Item("EZip").Value)%>
   
Contact: <%=(events.Fields.Item("EContactName").Value)%>
  <%=(events.Fields.Item("EContactPhone").Value)%>
  "><%=(events.Fields.Item("EContactEmail").Value)%>
<% if (events.Fields.Item("EAddress").Value) <> "" then %>
Directions to This Event
<% RAddress = (events.Fields.Item("EAddress").Value) RCity = (events.Fields.Item("ECity").Value) RState = (events.Fields.Item("EState").Value) RZip = (events.Fields.Item("EZip").Value) RTAddress = Replace(RAddress, " ", "+") RTCity = Replace(RCity, " ", "+") %> <%=RAddress %>
<%=RCity%>, <%=RState %> <%=RZip %>
Get Directions
<% end if %>
Members, check your email here.
<% events.Close() Set events = Nothing %>